home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / alph100p.zip / DEMO2.PAS < prev    next >
Pascal/Delphi Source File  |  1991-11-02  |  2KB  |  92 lines
  1. {$A+,B-,D-,E-,F-,G-,I-,L-,N-,O-,R-,S-,V-,X-}
  2. {$M 1024,0,0}
  3. program Demo2;
  4.  
  5. uses wow, alpha;
  6.  
  7. Type
  8.  Proc = Procedure;
  9.  
  10. Procedure Plain; Far;
  11. begin
  12. end;
  13.  
  14. Procedure SPage(s: string; P: Proc);
  15. var L,n,m:byte;
  16. begin
  17.   Textbackground(black);
  18.   textcolor(yellow);
  19.   clrscr;
  20.   gotoxy(33,1);write('ALPHA COLOR DEMO');
  21.   gotoxy(31,3);write(S);
  22.   gotoxy(15,4);write('Background');
  23.   gotoxy(55,4);write('Foreground');
  24.   for n:=15 downto 0 do
  25.     begin
  26.       TextBackground(n);
  27.       TextColor(n);
  28.       gotoxy(1,n+5);
  29.       for m:=1 to 40 do echo(#32);
  30.       for m:=1 to 40 do echo(#219);
  31.       inc(l)
  32.     end;
  33.     Sound(333);delay(200);nosound;
  34.     delay(5000);
  35. end;
  36.  
  37. Procedure MPage(s: string);
  38. var L,n,m:byte;
  39. begin
  40.   Textbackground(black);
  41.   textcolor(yellow);
  42.   clrscr;
  43.   gotoxy(33,1);write('ALPHA COLOR DEMO');
  44.   gotoxy(31,3);write(S);
  45.   gotoxy(15,4);write('Background');
  46.   gotoxy(55,4);write('Foreground');
  47.   for n:=15 downto 0 do
  48.     begin
  49.       TextBackground(n);
  50.       TextColor(n);
  51.       MakeAlphaChoice(Ega_MOde);
  52.       gotoxy(1,n+5);
  53.       for m:=1 to 40 do echo(#32);
  54.       for m:=1 to 40 do echo(#219);
  55.       inc(l)
  56.     end;
  57.     Sound(333);delay(200);nosound;
  58.     delay(5000);
  59. end;
  60.  
  61. Procedure CPage(s: string);
  62. var L,n,m:byte;
  63. begin
  64.   Textbackground(black);
  65.   textcolor(yellow);
  66.   clrscr;
  67.   gotoxy(33,1);write('ALPHA COLOR DEMO');
  68.   gotoxy(31,3);write(S);
  69.   gotoxy(15,4);write('Background');
  70.   gotoxy(55,4);write('Foreground');
  71.   for n:=15 downto 0 do
  72.     begin
  73.       TextBackground(n);
  74.       TextColor(n);
  75.       MakeAlphaChoice(Cga16_MOde);
  76.       gotoxy(1,n+5);
  77.       for m:=1 to 40 do echo(#32);
  78.       for m:=1 to 40 do echo(#219);
  79.       inc(l)
  80.     end;
  81.     Sound(333);delay(200);nosound;
  82.     delay(5000);
  83. end;
  84.  
  85. begin
  86.   spage('Plain     - Cga_Mode',Plain);
  87.   spage('HighVideo - Cga_Mode',HighVideo);
  88.   spage('LowVideo  - Cga_Mode', LowVideo);
  89.   Mpage('Plain     - Ega_Mode');
  90.   Cpage('Plain     - Cga16_Mode');
  91. end.
  92.